home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '91 / '91 Attendee Contributions / Jon Gary's Notes & Examples / Examples / Interfaces / JEGXcmd2LibIntf.p < prev   
Encoding:
Text File  |  1991-06-14  |  1.5 KB  |  67 lines  |  [TEXT/PJMM]
  1. {***************************************************** Stamp FKEY 1.0 ********}
  2. {    File:    File:    JEGXcmd2LibIntf.p    }
  3. {    By:        Jonathan Gary        }
  4. {    Date:    Fri, Jun 14, 1991    }
  5. {    Purpose:    trivial routines to use in XCMD's.                }
  6. {*****************************************************************************}
  7.  
  8. UNIT JEGXcmdLib;
  9.  
  10.  
  11. INTERFACE
  12.  
  13. USES  { include the HyperCard interfaces in the XFCN/CMD }
  14.     HyperXCmd;
  15.  
  16. FUNCTION ZeroToInt (p: XCmdPtr;
  17.                             zeroStr: Ptr): INTEGER;
  18.  
  19. FUNCTION ZeroToLong (p: XCmdPtr;
  20.                             zeroStr: Ptr): LONGINT;
  21.  
  22.  
  23. FUNCTION IntToZero (p: XCmdPtr;
  24.                             theInt: INTEGER): Handle;
  25.  
  26. FUNCTION ZeroToBool (p: XCMDPtr;
  27.                             zeroStr: Ptr): BOOLEAN;
  28.  
  29. FUNCTION ZeroToExt (p: XCMDPtr;
  30.                             zeroStr: Ptr): Extended;
  31.  
  32. FUNCTION NumToZero (p: XCMDPtr;
  33.                             num: LONGINT): Handle;
  34.  
  35. FUNCTION ExtToZero (p: XCMDPtr;
  36.                             num: Extended): Handle;
  37.  
  38. FUNCTION Max (x, y: INTEGER): INTEGER;
  39.  
  40. FUNCTION Min (x, y: INTEGER): INTEGER;
  41.  
  42. FUNCTION NextNum (p: XCMDPtr;
  43.                             VAR strPtr: Ptr;
  44.                             VAR endOfStr: BOOLEAN): INTEGER;
  45.  
  46. FUNCTION BuildRgn (p: XCMDPtr;
  47.                             strH: Handle): RgnHandle;
  48.  
  49. PROCEDURE BuildRect (p: XCMDPtr;
  50.                             VAR aRect: Rect;
  51.                             strH: Handle);
  52.  
  53. PROCEDURE BuildPt (p: XCMDPtr;
  54.                             VAR aPt: Point;
  55.                             strH: Handle);
  56.  
  57. PROCEDURE ForceUpdate (aWindow: WindowPtr);
  58.  
  59. FUNCTION GetStateAndLock (VAR aHandle: UNIV Handle): SignedByte;
  60.  
  61. FUNCTION StringOf (it: UNIV longint): Str255;
  62.  
  63. FUNCTION RectToZero (p: XcmdPtr;
  64.                             r: Rect): Handle;
  65.  
  66. IMPLEMENTATION
  67. END.